#!/usr/bin/perl -w #For syntax highlighting
package clreqd_modules;

use strict;
use mnttab;
use fstypes;

sub is_mounted {
my %ARGS=@_;

	my $fs=$ARGS{FS};
	my $mounted=new mnttab;
	my $h=$mounted->get_from_fs($fs);
	if(!defined($h)) {
		return "NOT_MOUNTED";
	}
	return "MOUNTED $h->{VG} $h->{LV}";
}

1;
